****ad experiment manuscript

log using ad_experiment_output.log, replace


************Creation of Figure 1

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_a1
gen dv=1
save output1.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_b1
gen dv=2
save output2.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_c1
gen dv=3
save output3.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_d1
gen dv=4
save output4.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_e1
gen dv=5
save output5.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_f1
gen dv=6
save output6.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_g1
gen dv=7
save output7.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_h1
gen dv=8
save output8.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_i1
gen dv=9
save output9.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_j1
gen dv=10
save output10.dta, replace

clear
use ad_experiment.dta
keep Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1 Q9_17_treatment
gen dvvalue=Q17_j1
gen dv=10
save output10.dta, replace

use output1.dta
append using output2.dta
append using output3.dta
append using output4.dta
append using output5.dta
append using output6.dta
append using output7.dta
append using output8.dta
append using output9.dta
append using output10.dta

label define type1 1 "Political Ads" 2 "Online Ads" 3 "TV Ads"
label values Q9_17_treatment type1

label define type2 1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital"  7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many"
label values dv type2

set scheme s1mono
graph bar dvvalue, over(dv, label(angle(45))) ytitle("") ytitle("Agreement")


************difference by treatment on each dv--Table C1

clear

use ad_experiment.dta


***difference between online and generic treatments
ttest Q17_a1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_b1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_c1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_d1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_e1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_f1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_g1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_h1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_i1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest Q17_j1 if treat_online==1 | treat_generic==1, by(treat_online)
ttest DVindex1 if treat_online==1 | treat_generic==1, by(treat_online)

ttest Q17_a1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_a1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_b1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_c1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_d1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_e1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_f1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_g1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_h1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_i1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest Q17_j1 if treat_online==1 | treat_generic==1, by(treat_online), 
ttest DVindex1 if treat_online==1 | treat_generic==1, by(treat_online)

ttest Q17_a1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_b1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_c1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_d1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_e1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_f1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_g1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_h1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_i1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest Q17_j1 if treat_online==1 | treat_tv==1, by(treat_tv)
ttest DVindex1 if treat_online==1 | treat_tv==1, by(treat_tv)

ttest Q17_a1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_b1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_c1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_d1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_e1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_f1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_g1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_h1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_i1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest Q17_j1 if treat_generic==1 | treat_tv==1, by(treat_tv)
ttest DVindex1 if treat_generic==1 | treat_tv==1, by(treat_tv)

***Figure 2--data from this output put into separate file called figure-data-overall.dta

clear
use figure-data-overall.dta

twoway bar diff1 question if online_tv==1 || rcap hi1 low1 question if online_tv==1, legend(off) xtitle("") ytitle("Difference between TV and Online Ads") xlabel(,angle(45)) xlabel(1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital" 7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many" 11 "Index") yline(0) 

*****Age analysis**************************************************

clear
use ad_experiment.dta

****compare young and old on views of online ads--Table C2--data from this output put into separate fille called age-figure.dta.dta

***online

ttest Q17_a1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_b1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_c1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_d1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_e1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_f1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_g1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_h1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_i1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_j1 if treat_online==1 & (age1==1 | age3==1), by(age1) 
ttest DVindex1 if treat_online==1 & (age1==1 | age3==1), by(age1) 

***TV

ttest Q17_a1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_b1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_c1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_d1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_e1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_f1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_g1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_h1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_i1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_j1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 
ttest DVindex1 if treat_tv==1 & (age1==1 | age3==1), by(age1) 

***Generic

ttest Q17_a1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_b1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_c1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_d1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_e1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_f1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_g1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_h1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_i1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest Q17_j1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 
ttest DVindex1 if treat_generic==1 & (age1==1 | age3==1), by(age1) 


*take output from these models and put them into a new filed called "age-figure-data.dta"

clear
use age-figure-data.dta 
set scheme s1mono
label define type2 1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital"  7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many" 11 "Index"
label values question2 type2

***Figure 3

twoway (bar diff question2 if online==1, barw(.85))  || rcap hi low question2 if online==1, legend(off) xtitle("") ytitle("Difference between Older and Younger") xlabel(,angle(45)) xlabel(1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital" 7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many" 11 "Index") yline(0) title("Online Ads") 

***Figure 4

twoway (bar diff question2 if online==0, barw(.85))  || rcap hi low question2 if online==0, legend(off) xtitle("") ytitle("Difference between Older and Younger") xlabel(,angle(45)) xlabel(1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital" 7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many" 11 "Index") yline(0) title("Television Ads")


****Creating TV v. Online by Age Figures--and Table C3

clear

use ad_experiment.dta

***young people--tV v. online
 ttest Q17_a1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_b1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_c1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_d1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_e1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_f1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_g1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_h1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_i1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest Q17_j1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 
 ttest DVindex1 if (treat_online==1 | treat_tv==1) & (age1==1), by(treat_online) 

***young people--tV v. generic

 ttest Q17_a1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_b1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_c1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_d1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_e1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_f1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_g1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_h1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_i1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest Q17_j1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 
 ttest DVindex1 if (treat_generic==1 | treat_tv==1) & (age1==1), by(treat_generic) 


***young people--online v. generic
 ttest Q17_a1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_b1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_c1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_d1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_e1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_f1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_g1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_h1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_i1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest Q17_j1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 
 ttest DVindex1 if (treat_online==1 | treat_generic==1) & (age1==1), by(treat_online) 


***older people--tV v. online
 ttest Q17_a1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_b1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_c1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_d1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_e1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_f1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_g1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_h1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_i1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest Q17_j1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 
 ttest DVindex1 if (treat_online==1 | treat_tv==1) & (age3==1), by(treat_online) 

***older people--tV v. generic

 ttest Q17_a1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_b1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_c1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_d1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_e1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_f1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_g1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_h1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_i1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest Q17_j1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 
 ttest DVindex1 if (treat_generic==1 | treat_tv==1) & (age3==1), by(treat_generic) 


***older people--online v. generic
 ttest Q17_a1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_b1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_c1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_d1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_e1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_f1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_g1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_h1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_i1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest Q17_j1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 
 ttest DVindex1 if (treat_online==1 | treat_generic==1) & (age3==1), by(treat_online) 


***take output from these models and put them into a new file called age-mode-figure-data.dta

clear

use age-mode-figure-data.dta


***Figure 5
twoway (bar diff question1 if young==1, barw(.85))  || rcap hi low question1 if young==1, legend(off) xtitle("") ytitle("Difference between TV and Online") xlabel(,angle(45)) xlabel(1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital" 7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many" 11 "Index") yline(0) title("Younger People") yscale(range(-1 1)) ylab(-1 -.5 0 .5 1)

***Figure 6
twoway (bar diff question1 if young==0, barw(.85))  || rcap hi low question1 if young==0, legend(off) xtitle("") ytitle("Difference between TV and Online") xlabel(,angle(45)) xlabel(1 "Annoying" 2 "Misleading" 3 "Entertaining" 4 "Helpful" 5 "Too Negative" 6 "Vital" 7 "Regulate" 8 "Ban" 9 "Uncivil" 10 "Too Many" 11 "Index") yline(0) title("Older People") yscale(range(-1 1)) ylab(-1 -.5 0 .5 1)


***Table 1

clear

use ad_experiment.dta

reg Q17_a1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_b1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_c1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_d1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_e1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_f1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_g1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_h1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_i1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg Q17_j1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic
reg DVindex1 tv_use_hi internet_use_hi age3 age2 treat_tv treat_generic

***Factor Analysis

clear
use ad_experiment.dta

factor Q17_a1 Q17_b1 Q17_c1 Q17_d1 Q17_e1 Q17_f1 Q17_g1 Q17_h1 Q17_i1 Q17_j1









